home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / DEMOS2.LHZ / -krazy bumpers (.txt) < prev    next >
Commodore BASIC  |  1993-12-17  |  1KB  |  32 lines
  1. 2 PRINT"[147][142]"
  2. 5 POKE53281,0:POKE53280,12
  3. 10 PRINT"[147][151]                                        ";
  4. 20 FORA=0TO20:PRINT" [146]                                       ";:NEXT
  5. 30 PRINT"                                        ";
  6. 40 K=1524:Y=40:X=1:V=40:W=1:T=40:U=1:L=1604:M=1684:N=1444:R=40:S=1:O=1364:P=1284
  7. 50 D=40:E=1:F=40:G=1
  8. 100 IFPEEK(K+X+Y)=32THENPOKEK,32:K=K+X+Y:POKE54272+K,2:POKEK,87:GOTO150
  9. 120 IFPEEK(K+X)<>32THENX=-X:GOTO100
  10. 130 IFPEEK(K+Y)<>32THENY=-Y:GOTO100
  11. 140 X=-X:Y=-Y
  12. 150 IFPEEK(L+V+W)=32THENPOKEL,32:L=L+V+W:POKE54272+L,4:POKEL,87:GOTO200
  13. 160 IFPEEK(L+V)<>32THENV=-V:GOTO150
  14. 170 IFPEEK(L+W)<>32THENW=-W:GOTO150
  15. 180 V=-V:W=-W
  16. 200 IFPEEK(M+T+U)=32THENPOKEM,32:M=M+T+U:POKE54272+M,14:POKEM,87:GOTO250
  17. 210 IFPEEK(M+T)<>32THENT=-T:GOTO200
  18. 220 IFPEEK(M+U)<>32THENU=-U:GOTO200
  19. 230 T=-T:U=-U
  20. 250 IFPEEK(N+R+S)=32THENPOKEN,32:N=N+R+S:POKE54272+N,5:POKEN,87:GOTO300
  21. 260 IFPEEK(N+R)<>32THENR=-R:GOTO250
  22. 270 IFPEEK(N+S)<>32THENS=-S:GOTO250
  23. 280 R=-R:S=-S
  24. 300 IFPEEK(O+D+E)=32THENPOKEO,32:O=O+D+E:POKE54272+O,10:POKEO,87:GOTO350
  25. 310 IFPEEK(O+D)<>32THEND=-D:GOTO300
  26. 320 IFPEEK(O+E)<>32THENE=-E:GOTO300
  27. 330 D=-D:E=-E
  28. 350 IFPEEK(P+F+G)=32THENPOKEP,32:P=P+F+G:POKE54272+P,3:POKEP,87:GOTO100
  29. 360 IFPEEK(P+F)<>32THENF=-F:GOTO350
  30. 370 IFPEEK(P+G)<>32THENG=-G:GOTO350
  31. 380 F=-F:G=-G:GOTO100
  32.